Erect Magazine Extra 10/Erect Magazine Extra 10 - Disc 1.iso/mac/P_Bro.DIR/00044.ls

Text File | 1996-12-07 | 1.6 KB | 53 lines

on startMovie
  put 1 into field "PhotoCUR_T"
end

on dragpanel _mouseh, _mousev
  repeat while the stillDown
    if (the mouseH <> _mouseh) or (the mouseV <> _mousev) then
      set moveh to _mouseh - the mouseH
      set _mouseh to the mouseH
      set movev to _mousev - the mouseV
      set _mousev to the mouseV
      set temph to the locH of sprite 5 - moveh
      set tempv to the locV of sprite 5 - movev
      set minh to temph - (the width of sprite 5 / 2)
      set maxh to temph + (the width of sprite 5 / 2)
      set minv to tempv - (the height of sprite 5 / 2)
      set maxv to tempv + (the height of sprite 5 / 2)
      if minh < 0 then
        set temph to the width of sprite 5 / 2
      end if
      if maxh > 640 then
        set temph to 640 - (the width of sprite 5 / 2)
      end if
      if minv < 20 then
        set tempv to (the height of sprite 5 / 2) + 20
      end if
      if maxv > 480 then
        set tempv to 480 - (the height of sprite 5 / 2)
      end if
      set moveh to the locH of sprite 5 - temph
      set movev to the locV of sprite 5 - tempv
      repeat with n = 5 to 15
        set the locH of sprite n to the locH of sprite n - moveh
        set the locV of sprite n to the locV of sprite n - movev
      end repeat
      updateStage()
    end if
  end repeat
end

on readpict _groupnum, _pagenum
  set fname to the pathName & "PHOTO:PICT:PHOTO" & _groupnum & ":P" & _pagenum & ".PIC"
  set myp to fileio(mnew, "read", fname)
  if objectp(myp) then
    set the picture of cast "PictCast" to myp(mreadpict)
    myp(mdispose)
    return 1
  else
    beep()
    return 0
  end if
end